home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / pdc / libsrc / stdlib / strtol.c < prev    next >
C/C++ Source or Header  |  1990-04-06  |  2KB  |  74 lines
  1. /*
  2.  * Libraries and headers for PDC release 3.3 (C) 1989 Lionel Hummel.
  3.  * PDC Software Distribution (C) 1989 Lionel Hummel and Paul Petersen.
  4.  * PDC I/O Library (C) 1987 by J.A. Lydiatt.
  5.  *
  6.  * This code is freely redistributable upon the conditions that this 
  7.  * notice remains intact and that modified versions of this file not
  8.  * be included as part of the PDC Software Distribution without the
  9.  * express consent of the copyright holders.  No warrantee of any
  10.  * kind is provided with this code.  For further information, contact:
  11.  *
  12.  *  PDC Software Distribution    Internet:                     BIX:
  13.  *  P.O. Box 4006             or hummel@cs.uiuc.edu            lhummel
  14.  *  Urbana, IL  61801-8801       petersen@uicsrd.csrd.uiuc.edu
  15.  */
  16.  
  17. /* strtol.c - converts ascii to a long */
  18.  
  19. #include <stddef.h>
  20. #include <ctype.h>
  21.  
  22. long strtol(string, ptr, base)
  23. char *string;
  24. char **ptr;
  25. int base;
  26. {
  27.     char *strptr = string;
  28.     int retval = 0;
  29.     int sign;
  30.     char c;
  31.     int i = 0;
  32.  
  33.     while (isspace(c = *strptr))
  34.         strptr++;
  35.  
  36.     if (c == '-') {
  37.         sign = -1;
  38.         c = *(++strptr);
  39.         }
  40.     else
  41.         sign = 1;
  42.  
  43.     if (c == '+')
  44.         c = *(++strptr);
  45.  
  46.     if (base == 0) {
  47.         if (c == '0') {
  48.             if ((c = tolower(*(++strptr))) == 'x')
  49.                 base = 16;
  50.             else
  51.                 base = 8;
  52.             }
  53.         else
  54.             base = 10;
  55.         }
  56.  
  57.     do {
  58.         if (isalnum(c))
  59.             retval = (retval*base) + toint(c);
  60.         else
  61.             break;
  62.         i++;
  63.         } while ((c = *(++strptr)) != 0);
  64.  
  65.     if (ptr != NULL) {
  66.         if (i > 0)
  67.             *ptr = strptr;
  68.         else
  69.             *ptr = string;
  70.         }
  71.  
  72.     return(retval * sign);
  73. }
  74.